home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Education / PC-SiG's World of Education.iso / run / 2602 / grey.alg < prev    next >
Encoding:
Text File  |  1987-08-26  |  410 b   |  15 lines
  1. {GREY.ALG - produce 10 level grey scale.}
  2.  
  3. {Adjust following two constants to your screen size}
  4. max_vert_pixels = 303;        {plot area size for Hercules I/F}
  5. max_horiz_pixels = 620;
  6.  
  7. tracenum = off;
  8. block_size = 3;
  9. start = 0; step = block_size; dur = max_horiz_pixels;
  10. ymin = 0;  ymax = max_vert_pixels;
  11. iloop(2,block_size,max_vert_pixels);
  12.     trace = i*10/max_vert_pixels;
  13.     plot(i);
  14. endi;
  15.